IF exists(SELECT * FROM dbo.sysobjects WHERE name='WEB_materiaal' AND xtype='P') 
BEGIN
	DROP PROCEDURE WEB_materiaal
END
GO

CREATE  procedure WEB_materiaal
(@iNr char(7))
as
set nocount on

declare @klas varchar(5)
set @klas=dbo.WEB_klasnaam(@iNr)
create table #hulptabel(tekst varchar(8000))

--De hoofding
insert into #hulptabel(tekst)
values('<?xml version="1.0"  encoding="ISO-8859-1" ?>')
insert into #hulptabel(tekst)
values('<materiaal>')

insert into #hulptabel(tekst)
values('<klas klasNaam="' + @klas + '" />')

------
insert into #hulptabel(tekst)
values('<huurboeken>')

insert into #hulptabel(tekst)
select '<titel code="' + a.artikelNr + '" vak="' + vakcode + '">' + dbo.WEB_XML(a.interneOmschrijving) + '</titel>' 
from schoolrekening.dbo.behoeften as b 
   left join schoolrekening.dbo.procureArtikelen as a
   on a.artikelNr = b.artikelNr 
where b.klas=@klas and substring(b.artikelNr,1,1) = 'H'
order by b.vakCode, b.artikelNr

insert into #hulptabel(tekst)
values('</huurboeken>')

------
insert into #hulptabel(tekst)
values('<koopboeken>')

insert into #hulptabel(tekst)
select '<titel code="' + a.artikelNr + '" vak="' + vakcode + '">' + a.interneOmschrijving + '</titel>' 
from schoolrekening.dbo.behoeften as b 
   left join schoolrekening.dbo.procureArtikelen as a
   on a.artikelNr = b.artikelNr 
where b.klas=@klas and substring(b.artikelNr,1,1) = 'B'
order by b.vakCode, b.artikelNr

insert into #hulptabel(tekst)
values('</koopboeken>')

------
insert into #hulptabel(tekst)
values('<cursussen>')

insert into #hulptabel(tekst)
select '<titel code="' + a.artikelNr + '" vak="' + vakcode + '">' + a.interneOmschrijving + '</titel>' 
from schoolrekening.dbo.behoeften as b 
   left join schoolrekening.dbo.procureArtikelen as a
   on a.artikelNr = b.artikelNr 
where b.klas=@klas and substring(b.artikelNr,1,1) = 'C'
order by b.vakCode, b.artikelNr

insert into #hulptabel(tekst)
values('</cursussen>')

------
insert into #hulptabel(tekst)
values('<cursorisch>')

insert into #hulptabel(tekst)
select '<titel code="' + a.artikelNr + '" vak="' + vakcode + '">' + a.interneOmschrijving + '</titel>' 
from schoolrekening.dbo.behoeften as b 
   left join schoolrekening.dbo.procureArtikelen as a
   on a.artikelNr = b.artikelNr 
where b.klas=@klas and substring(b.artikelNr,1,1) = 'T'
order by b.vakCode, b.artikelNr

insert into #hulptabel(tekst)
values('</cursorisch>')

-------
insert into #hulptabel(tekst)
values('<procure>')

insert into #hulptabel(tekst)
select '<titel code="' + a.artikelNr + '" vak="' + vakcode + '">' + a.interneOmschrijving + '</titel>' 
from schoolrekening.dbo.behoeften as b 
   left join schoolrekening.dbo.procureArtikelen as a
   on a.artikelNr = b.artikelNr 
where b.klas=@klas and substring(b.artikelNr,1,1) = 'P'
order by b.vakCode, b.artikelNr

insert into #hulptabel(tekst)
values('</procure>')

-------
insert into #hulptabel(tekst)
values('<andere>')

insert into #hulptabel(tekst)
select '<titel code="' + a.artikelNr + '" vak="' + vakcode + '">' + a.interneOmschrijving + '</titel>' 
from schoolrekening.dbo.behoeften as b 
   left join schoolrekening.dbo.procureArtikelen as a
   on a.artikelNr = b.artikelNr 
where b.klas=@klas and not(
		substring(b.artikelNr,1,1) = 'H'
		or substring(b.artikelNr,1,1) = 'B'
		or substring(b.artikelNr,1,1) = 'C'
		or substring(b.artikelNr,1,1) = 'T'
		or substring(b.artikelNr,1,1) = 'P')
order by b.vakCode, b.artikelNr

insert into #hulptabel(tekst)
values('</andere>')

------


insert into #hulptabel(tekst)
values('</materiaal>')

select * from #hulptabel